﻿Imports System
Imports System.Runtime.Serialization
Imports System.Security.Permissions

Namespace System.Workflow.Runtime.Hosting
    <Serializable> _
    Public Class PersistenceException
        Inherits SystemException
        ' Methods
        Public Sub New()
            MyBase.New(String.Format(CultureInfo.CurrentCulture, ExecutionStringManager.PersistenceException, New Object(0  - 1) {}))
        End Sub

        Public Sub New(ByVal message As String)
            MyBase.New(message)
        End Sub

        <SecurityPermission(SecurityAction.Demand, SerializationFormatter:=True)> _
        Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
            MyBase.New(info, context)
        End Sub

        Public Sub New(ByVal message As String, ByVal innerException As Exception)
            MyBase.New(message, innerException)
        End Sub

    End Class
End Namespace

